home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / mac / FILES / SHARED.CST / 00029_Script_AREA Funct Parent Script < prev    next >
Text File  |  1997-07-24  |  4KB  |  111 lines
  1. --o Funct: AREA
  2.  
  3. property pCastNum, pPictSprite, pFirstSpriteNum, pQTsprite, pSnd
  4. property  pEndSpriteNum, pFrameLabel, pNumOfHS, pAreaHotSpotID
  5. property pCurrAreaCursors, pReturnCursorList
  6.  
  7. global gModeManager, gInterfaceMgrObj, gAreaManagerObj, gUtilityObj
  8. global gActorListMgrObj,gActiveAmbSnd
  9.  
  10. ------------------------------------------------------------------------------------------------------------------ò
  11. on birth me
  12.   
  13.   return( me )
  14.   
  15. end birth
  16. ------------------------------------------------------------------------------------------------------------------ò
  17. on mInit me, aLineFromDataBase, aPICTsprite
  18.   
  19.   set pPictSprite = aPICTsprite
  20.   set pSnd = item 6 of aLineFromDataBase
  21.   set pFrameLabel = string( value(item 2 of aLineFromDataBase ))
  22.   set pNumOfHS = item 5 of aLineFromDataBase
  23.   set pEndSpriteNum = pFirstSpriteNum
  24.   
  25.   set StartSprite = 4
  26.   set pCurrAreaCursors = [21:#RETURN,22:#RETURN]
  27.   repeat with SpriteNum = StartSprite to (StartSprite + pNumOfHS)
  28.     addprop( pCurrAreaCursors,SpriteNum,#Operate )
  29.   end repeat
  30.   
  31.   if pFrameLabel = "Ticker" then
  32.     setprop( pCurrAreaCursors,6,#zoomin )
  33.     setprop( pCurrAreaCursors,7,#zoomin )
  34.   end if
  35.   
  36. end
  37. ------------------------------------------------------------------------------------------------------------------ò
  38. on mDiscloseFunctionalityType me
  39.   
  40.   return( #AREA )
  41.   
  42. end mDiscloseFunctionalityType
  43. ------------------------------------------------------------------------------------------------------------------ò
  44. on mClose me
  45.   
  46.   -- if (pFrameLabel = "Ticker") then set pTickerActive = TRUE
  47.   mClearToolMenu ( gInterfaceMgrObj )
  48.   
  49.   
  50.   
  51.   mUnSetCursors(gUtilityObj)
  52.   mDeleteFromActorlist(gActorListMgrObj, gAreaManagerObj)
  53.   
  54.   mSetToolBtns (gInterfaceMgrObj, #NONE)
  55. end mClose
  56. ------------------------------------------------------------------------------------------------------------------ò
  57. on mClickEvent me
  58.   
  59.   mClose( me )
  60.   
  61. end mClickEvent
  62. ------------------------------------------------------------------------------------------------------------------ò
  63. on mActivate me
  64.   
  65.   
  66.   mUpdateReturnFrame(gUtilityObj,label("QTVR"))
  67.   go pFrameLabel
  68.   set gActiveAmbSnd = pSnd
  69.   mPlayAmbient ( gUtilityObj )
  70.   
  71.   go the frame - 1
  72.   mAddToActorList(gActorListMgrObj, gAreaManagerObj)
  73.   mSetCursors(gUtilityObj, pCurrAreaCursors)
  74.   
  75.   
  76.   --/
  77.   if  (pFrameLabel = "Ticker") then  mSetToolBtns (gInterfaceMgrObj, #TELEGRAPH, me)
  78.   else mSetToolBtns (gInterfaceMgrObj, #AREA, me)
  79.   --/
  80.   
  81. end mActivate
  82. ------------------------------------------------------------------------------------------------------------------ò
  83. on mDisclose me
  84.   
  85.   put "AREA"
  86.   
  87. end 
  88. ------------------------------------------------------------------------------------------------------------------ò
  89. on mSetAreaHotSpotID me, argAreaHotSpotID
  90.   
  91.   set pAreaHotSpotID = argAreaHotSpotID
  92.   
  93. end mSetAreaHotSpotID
  94. ------------------------------------------------------------------------------------------------------------------ò
  95. on mZoom me, WhatactiveRect
  96.   
  97.   if WhatactiveRect = 1 then go frame "Tape Zoom"
  98.   else go frame "Zoom Reciever"
  99.   mClearToolHilite (gInterfaceMgrObj)
  100.   
  101. end mZoom
  102. ------------------------------------------------------------------------------------------------------------------ò
  103. on mOperate me, WhatactiveRect
  104.   
  105.   if WhatactiveRect = 1 then go frame "TELEGRAPH"
  106.   else if WhatactiveRect = 2 then go frame "Transmitter"
  107.   else go frame "Reciever"
  108.   mClearToolHilite (gInterfaceMgrObj)
  109.   
  110. end mOperate
  111. ------------------------------------------------------------------------------------------------------------------ò